home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / win / vb / shufler.exe / GSOUNDS.BAS < prev    next >
Encoding:
BASIC Source File  |  1992-04-11  |  3.9 KB  |  100 lines
  1. Declare Function WriteProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String) As Integer
  2. Declare Function GetProfileString Lib "Kernel" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer) As Integer
  3. Declare Function GetPrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
  4. Declare Function WritePrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lplFileName As String) As Integer
  5. Declare Sub MessageBeep Lib "User" (ByVal wType As Integer)
  6. Global Const MB_OK = &H0
  7. Global Const MB_ICONHAND = &H10
  8. Global Const MB_ICONQUESTION = &H20
  9. Global Const MB_ICONEXCLAMATION = &H30
  10. Global Const MB_ICONASTERISK = &H40
  11. Declare Function GetIniSections Lib "Kernel" Alias "GetPrivateProfileString" (ByVal lpAppName As String, ByVal lpKeyName As Long, ByVal lpDefault As String, ByVal lpBuffer As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
  12. Declare Function KillSection Lib "Kernel" Alias "WritePrivateProfileString" (ByVal lpSectionName As String, ByVal lpKeyName As Long, ByVal lpString As Long, ByVal lpFileName As String) As Integer
  13. Declare Function KillIniKey Lib "Kernel" Alias "WritePrivateProfileString" (ByVal lpSectionName As String, ByVal lpKeyName As String, ByVal lpString As Long, ByVal lpFileName As String) As Integer
  14.  
  15. Type RECT
  16.     left As Integer
  17.     top As Integer
  18.     right As Integer
  19.     bottom As Integer
  20. End Type
  21.  
  22. Global Const TRUE = -1
  23. Global Const FALSE = 0
  24.  
  25. '-----------------------------------
  26. 'Common Dialog Control
  27. '-----------------------------------
  28. 'Action Property
  29. Global Const DLG_FILE_OPEN = 1
  30. Global Const DLG_FILE_SAVE = 2
  31. Global Const DLG_COLOR = 3
  32. Global Const DLG_FONT = 4
  33. Global Const DLG_PRINT = 5
  34. Global Const DLG_HELP = 6
  35.  
  36. 'File Open/Save Dialog Flags
  37. Global Const OFN_READONLY = &H1&
  38. Global Const OFN_OVERWRITEPROMPT = &H2&
  39. Global Const OFN_HIDEREADONLY = &H4&
  40. Global Const OFN_NOCHANGEDIR = &H8&
  41. Global Const OFN_SHOWHELP = &H10&
  42. Global Const OFN_NOVALIDATE = &H100&
  43. Global Const OFN_ALLOWMULTISELECT = &H200&
  44. Global Const OFN_EXTENTIONDIFFERENT = &H400&
  45. Global Const OFN_PATHMUSTEXIST = &H800&
  46. Global Const OFN_FILEMUSTEXIST = &H1000&
  47. Global Const OFN_CREATEPROMPT = &H2000&
  48. Global Const OFN_SHAREAWARE = &H4000&
  49. Global Const OFN_NOREADONLYRETURN = &H8000&
  50.  
  51. 'Color Dialog Flags
  52. Global Const CC_RGBINIT = &H1&
  53. Global Const CC_FULLOPEN = &H2&
  54. Global Const CC_PREVENTFULLOPEN = &H4&
  55. Global Const CC_SHOWHELP = &H8&
  56.  
  57. Global gsInitDir As String
  58.  
  59. '---------------------------------------
  60. 'MCI Control (Multimedia)
  61. '---------------------------------------
  62. 'Mode Property
  63. Global Const MCI_MODE_NOT_OPEN = 11
  64. Global Const MCI_MODE_STOP = 12
  65. Global Const MCI_MODE_PLAY = 13
  66. Global Const MCI_MODE_RECORD = 14
  67. Global Const MCI_MODE_SEEK = 15
  68. Global Const MCI_MODE_PAUSE = 16
  69. Global Const MCI_MODE_READY = 17
  70.  
  71. 'NotifyValue Property
  72. Global Const MCI_NOTIFY_SUCCESSFUL = 1
  73. Global Const MCI_NOTIFY_SUPERSEDED = 2
  74. Global Const MCI_ABORTED = 4
  75. Global Const MCI_FAILURE = 8
  76.  
  77. 'Orientation Property
  78. Global Const MCI_ORIENT_HORZ = 0
  79. Global Const MCI_ORIENT_VERT = 1
  80.  
  81. 'RecordMode Porperty
  82. Global Const MCI_RECORD_INSERT = 0
  83. Global Const MCI_RECORD_OVERWRITE = 1
  84.  
  85. 'TimeFormat Property
  86. Global Const MCI_FORMAT_MILLISECONDS = 0
  87. Global Const MCI_FORMAT_HMS = 1
  88. Global Const MCI_FORMAT_FRAMES = 3
  89. Global Const MCI_FORMAT_SMPTE_24 = 4
  90. Global Const MCI_FORMAT_SMPTE_25 = 5
  91. Global Const MCI_FORMAT_SMPTE_30 = 6
  92. Global Const MCI_FORMAT_SMPTE_30DROP = 7
  93. Global Const MCI_FORMAT_BYTES = 8
  94. Global Const MCI_FORMAT_SAMPLES = 9
  95. Global Const MCI_FORMAT_TMSF = 10
  96.  
  97. Global gEventsArray() As String
  98. Global giNumEvents As Integer
  99.  
  100.